home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / wtour / popup1.tcl < prev    next >
Encoding:
Text File  |  1995-06-29  |  494 b   |  21 lines
  1. #
  2. # a popup menu
  3. #
  4.  
  5. # create label with popup on <Btn3Down>
  6. xmLabel .label managed \
  7.     -labelString "ctrl-p or Btn3Down popups from me"
  8. .label setValues -translations \
  9.          "<Btn3Down>: action(popIt %event)"
  10.  
  11. # create the actual menu
  12. xmPopupMenu .label.menu -menuAccelerator "Ctrl <Key> p"
  13. xmPushButton .label.menu.btn1 managed
  14. xmPushButton .label.menu.btn2 managed
  15.  
  16. # popups the menu when requested
  17. proc popIt {event} {
  18.     .label.menu menuPosition $event
  19.     .label.menu manageChild
  20. }
  21.